home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue27 / archaeop / DinoSource / HiddenMenus.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-09-16  |  1.7 KB  |  70 lines
  1. unit HiddenMenus;
  2.  
  3. interface
  4.  
  5. implementation
  6.  
  7. uses
  8.   Forms, CommonStuff, Menus, SysUtils, Dialogs;
  9.  
  10. type
  11.   THiddenMenus = class(TObject)
  12.   private
  13.     FCompError,
  14.     FViewAsText,
  15.     FUsingHelp,
  16.     FAPI: TMenuItem;
  17.   public
  18.     constructor Create;
  19.     destructor Destroy; override;
  20.   end;
  21.  
  22. const
  23.   //Hidden menu item components
  24.   SCompError = 'SearchCompErrItem';
  25.   SViewAsText = 'ViewSwapSourceFormItem';
  26.   SUsingHelp = 'HelpUsingHelpItem';
  27.   SAPI = 'HelpAPIItem';
  28.  
  29. constructor THiddenMenus.Create;
  30. begin
  31.   inherited Create;
  32.   //This section just displays some normally hidden menu items
  33.   FCompError := GetComponent(Application.MainForm, SCompError, SGenericError + SCompError)
  34.     as TMenuItem; //Search | Show Last Compile Error
  35.   FViewAsText := GetComponent(Application.MainForm, SViewAsText, SGenericError + SViewAsText)
  36.     as TMenuItem; //View | View as Text
  37.   FUsingHelp := GetComponent(Application.MainForm, SUsingHelp, SGenericError + SUsingHelp)
  38.     as TMenuItem; //Help | How to Use Help
  39.   FAPI := GetComponent(Application.MainForm, SAPI, SGenericError + SAPI)
  40.     as TMenuItem; //Help | Windows API
  41.   FCompError.Visible := True;
  42.   FViewAsText.Visible := True;
  43.   FUsingHelp.Visible := True;
  44.   FAPI.Visible := True;
  45. end;
  46.  
  47. destructor THiddenMenus.Destroy;
  48. begin
  49.   //Put menus back to default hidden state
  50.   FCompError.Visible := False;
  51.   FViewAsText.Visible := False;
  52.   FUsingHelp.Visible := False;
  53.   FAPI.Visible := False;
  54.   inherited Destroy
  55. end;
  56.  
  57. var
  58.   HiddenMenusObject: THiddenMenus;
  59.  
  60. initialization
  61.   try
  62.     HiddenMenusObject := THiddenMenus.Create
  63.   except
  64.     on E: Exception do
  65.       ShowMessage(SSetupError + ': ' + E.Message)
  66.   end
  67. finalization
  68.   HiddenMenusObject.Free
  69. end.
  70.